% Greek Letters 统一使用Latin Modern字体
\ProvidesPackage{svgreek}
% copy from Springer SVMONO.cls
% 可以参考 psyr.afm, psyb.afm, eurm10.afm 字体说明文件
%
% 下面两句话从mathptmx.sty中抄来，因为原先cm的符号
% 比如\alpha，过细，这个好看些。其实就是选择字体。
%\DeclareSymbolFont{letters}     {OML}{ztmcm}{m}{it}
%\DeclareSymbolFont{operators}   {OT1}{ztmcm}{m}{n}
%\DeclareSymbolFont{symbols}     {OMS}{ztmcm}{m}{n}
%\DeclareSymbolFont{largesymbols}{OMX}{ztmcm}{m}{n}
%\DeclareSymbolFont{bold}        {OT1}{ptm}{bx}{n}
%\DeclareSymbolFont{italic}      {OT1}{ptm}{m}{it}
%\@ifundefined{mathbf}{}{\DeclareMathAlphabet{\mathbf}{OT1}{ptm}{bx}{n}}
%\@ifundefined{mathit}{}{\DeclareMathAlphabet{\mathit}{OT1}{ptm}{m}{it}}
% 下面直接从lmodern.sty抄来，可以实现大写符号的加粗
% 小写加粗可能要另想办法了。
\DeclareSymbolFont{operators}       {OT1}{lmr}{m}{n}
\DeclareSymbolFont{letters}         {OML}{lmm}{m}{it}
\DeclareSymbolFont{symbols}         {OMS}{lmsy}{m}{n}
\DeclareSymbolFont{largesymbols}    {OMX}{lmex}{m}{n}
\SetSymbolFont{operators}   {bold}  {OT1}{lmr} {bx}{n}
\SetSymbolFont{letters}     {bold}  {OML}{lmm} {b}{it}
\SetSymbolFont{symbols}     {bold}  {OMS}{lmsy}{b}{n}
\SetSymbolFont{largesymbols}{bold}  {OMX}{lmex}{m}{n}
%
\DeclareMathAlphabet{\mathbf}    {OT1}{lmr}{bx}{n}
\DeclareMathAlphabet{\mathsf}    {OT1}{lmss}{m}{n}
\DeclareMathAlphabet{\mathit}    {OT1}{lmr}{m}{it}
\DeclareMathAlphabet{\mathtt}    {OT1}{lmtt}{m}{n}
\SetMathAlphabet{\mathbf}{bold}  {OT1}{lmr}{bx}{n}
\SetMathAlphabet{\mathsf}{bold}  {OT1}{lmss}{bx}{n}
\SetMathAlphabet{\mathit}{bold}  {OT1}{lmr}{bx}{it}
\SetMathAlphabet{\mathtt}{bold}  {OT1}{lmtt}{m}{n}
%
% copy from mathptmx
\DeclareMathSymbol{\omicron}{\mathalpha}{letters}{`\o}
%
% some constants
%\DeclareSymbolFont{EUr}{U}{eur}{m}{n}
%\DeclareSymbolFont{EUb}{U}{eur}{b}{n}
\DeclareSymbolFont{constletters}{U}{eur}{m}{n}
\DeclareMathSymbol{\constalpha}{\mathord}{constletters}{"0B}
\DeclareMathSymbol{\constbeta}{\mathord}{constletters}{"0C}
\DeclareMathSymbol{\constgamma}{\mathord}{constletters}{"0D}
\DeclareMathSymbol{\constdelta}{\mathord}{constletters}{"0E}
\DeclareMathSymbol{\constepsilon}{\mathord}{constletters}{"0F}
\DeclareMathSymbol{\constzeta}{\mathord}{constletters}{"10}
\DeclareMathSymbol{\consteta}{\mathord}{constletters}{"11}
\DeclareMathSymbol{\consttheta}{\mathord}{constletters}{"12}
\DeclareMathSymbol{\constiota}{\mathord}{constletters}{"13}
\DeclareMathSymbol{\constkappa}{\mathord}{constletters}{"14}
\DeclareMathSymbol{\constlambda}{\mathord}{constletters}{"15}
\DeclareMathSymbol{\constmu}{\mathord}{constletters}{"16}
\DeclareMathSymbol{\constnu}{\mathord}{constletters}{"17}
\DeclareMathSymbol{\constxi}{\mathord}{constletters}{"18}
\DeclareMathSymbol{\constpi}{\mathord}{constletters}{"19}
\DeclareMathSymbol{\constrho}{\mathord}{constletters}{"1A}
\DeclareMathSymbol{\constsigma}{\mathord}{constletters}{"1B}
\DeclareMathSymbol{\consttau}{\mathord}{constletters}{"1C}
\DeclareMathSymbol{\constupsilon}{\mathord}{constletters}{"1D}
\DeclareMathSymbol{\constphi}{\mathord}{constletters}{"1E}
\DeclareMathSymbol{\constchi}{\mathord}{constletters}{"1F}
\DeclareMathSymbol{\constpsi}{\mathord}{constletters}{"20}
\DeclareMathSymbol{\constomega}{\mathord}{constletters}{"21}
\DeclareMathSymbol{\constvarepsilon}{\mathord}{constletters}{"22}
\DeclareMathSymbol{\constvartheta}{\mathord}{constletters}{"23}
\DeclareMathSymbol{\constvaromega}{\mathord}{constletters}{"24}
\DeclareMathSymbol{\constvarphi}{\mathord}{constletters}{"27}
%
% the definition of uppercase Greek characters
% Springer likes them as italics to depict variables
\DeclareMathSymbol{\Gamma}{\mathalpha}{letters}{"00}
\DeclareMathSymbol{\Delta}{\mathalpha}{letters}{"01}
\DeclareMathSymbol{\Theta}{\mathalpha}{letters}{"02}
\DeclareMathSymbol{\Lambda}{\mathalpha}{letters}{"03}
\DeclareMathSymbol{\Xi}{\mathalpha}{letters}{"04}
\DeclareMathSymbol{\Pi}{\mathalpha}{letters}{"05}
\DeclareMathSymbol{\Sigma}{\mathalpha}{letters}{"06}
\DeclareMathSymbol{\Upsilon}{\mathalpha}{letters}{"07}
\DeclareMathSymbol{\Phi}{\mathalpha}{letters}{"08}
\DeclareMathSymbol{\Psi}{\mathalpha}{letters}{"09}
\DeclareMathSymbol{\Omega}{\mathalpha}{letters}{"0A}
% the upright forms are defined here as \up<Character>
\DeclareMathSymbol{\upGamma}{\mathalpha}{operators}{"00}
\DeclareMathSymbol{\upDelta}{\mathalpha}{operators}{"01}
\DeclareMathSymbol{\upTheta}{\mathalpha}{operators}{"02}
\DeclareMathSymbol{\upLambda}{\mathalpha}{operators}{"03}
\DeclareMathSymbol{\upXi}{\mathalpha}{operators}{"04}
\DeclareMathSymbol{\upPi}{\mathalpha}{operators}{"05}
\DeclareMathSymbol{\upSigma}{\mathalpha}{operators}{"06}
\DeclareMathSymbol{\upUpsilon}{\mathalpha}{operators}{"07}
\DeclareMathSymbol{\upPhi}{\mathalpha}{operators}{"08}
\DeclareMathSymbol{\upPsi}{\mathalpha}{operators}{"09}
\DeclareMathSymbol{\upOmega}{\mathalpha}{operators}{"0A}
% redeclare lower case greek as mathalpha
\DeclareMathSymbol{\alpha}{\mathalpha}{letters}{"0B}
\DeclareMathSymbol{\beta}{\mathalpha}{letters}{"0C}
\DeclareMathSymbol{\gamma}{\mathalpha}{letters}{"0D}
\DeclareMathSymbol{\delta}{\mathalpha}{letters}{"0E}
\DeclareMathSymbol{\epsilon}{\mathalpha}{letters}{"0F}
\DeclareMathSymbol{\zeta}{\mathalpha}{letters}{"10}
\DeclareMathSymbol{\eta}{\mathalpha}{letters}{"11}
\DeclareMathSymbol{\theta}{\mathalpha}{letters}{"12}
\DeclareMathSymbol{\iota}{\mathalpha}{letters}{"13}
\DeclareMathSymbol{\kappa}{\mathalpha}{letters}{"14}
\DeclareMathSymbol{\lambda}{\mathalpha}{letters}{"15}
\DeclareMathSymbol{\mu}{\mathalpha}{letters}{"16}
\DeclareMathSymbol{\nu}{\mathalpha}{letters}{"17}
\DeclareMathSymbol{\xi}{\mathalpha}{letters}{"18}
\DeclareMathSymbol{\pi}{\mathalpha}{letters}{"19}
\DeclareMathSymbol{\rho}{\mathalpha}{letters}{"1A}
\DeclareMathSymbol{\sigma}{\mathalpha}{letters}{"1B}
\DeclareMathSymbol{\tau}{\mathalpha}{letters}{"1C}
\DeclareMathSymbol{\upsilon}{\mathalpha}{letters}{"1D}
\DeclareMathSymbol{\phi}{\mathalpha}{letters}{"1E}
\DeclareMathSymbol{\chi}{\mathalpha}{letters}{"1F}
\DeclareMathSymbol{\psi}{\mathalpha}{letters}{"20}
\DeclareMathSymbol{\omega}{\mathalpha}{letters}{"21}
\DeclareMathSymbol{\varepsilon}{\mathalpha}{letters}{"22}
\DeclareMathSymbol{\vartheta}{\mathalpha}{letters}{"23}
\DeclareMathSymbol{\varpi}{\mathalpha}{letters}{"24}
\DeclareMathSymbol{\varrho}{\mathalpha}{letters}{"25}
\DeclareMathSymbol{\varsigma}{\mathalpha}{letters}{"26}
\DeclareMathSymbol{\varphi}{\mathalpha}{letters}{"27}
% Upright Lower Case Greek letters without using a new MathAlphabet
\newcommand{\greeksym}[1]{\usefont{U}{psy}{m}{n}#1}
\newcommand{\greeksymbold}[1]{{\usefont{U}{psy}{b}{n}#1}}
\newcommand{\allmodesymb}[2]{\relax\ifmmode{\mathchoice
{\mbox{\fontsize{\tf@size}{\tf@size}#1{#2}}}
{\mbox{\fontsize{\tf@size}{\tf@size}#1{#2}}}
{\mbox{\fontsize{\sf@size}{\sf@size}#1{#2}}}
{\mbox{\fontsize{\ssf@size}{\ssf@size}#1{#2}}}}
\else
\mbox{#1{#2}}\fi}
% Definition of lower case Greek letters
\newcommand{\upalpha}{\allmodesymb{\greeksym}{a}}
\newcommand{\upbeta}{\allmodesymb{\greeksym}{b}}
\newcommand{\upchi}{\allmodesymb{\greeksym}{c}}
\newcommand{\updelta}{\allmodesymb{\greeksym}{d}}
\newcommand{\upepsilon}{\allmodesymb{\greeksym}{e}}
\newcommand{\upvarepsilon}{\allmodesymb{\greeksym}{e}}
\newcommand{\upphi}{\allmodesymb{\greeksym}{f}}
\newcommand{\upgamma}{\allmodesymb{\greeksym}{g}}
\newcommand{\upeta}{\allmodesymb{\greeksym}{h}}
\newcommand{\upiota}{\allmodesymb{\greeksym}{i}}
\newcommand{\upvarphi}{\allmodesymb{\greeksym}{j}}
\newcommand{\upkappa}{\allmodesymb{\greeksym}{k}}
\newcommand{\uplambda}{\allmodesymb{\greeksym}{l}}
\newcommand{\upmu}{\allmodesymb{\greeksym}{m}}
\newcommand{\upnu}{\allmodesymb{\greeksym}{n}}

\newcommand{\upomicron}{\allmodesymb{\greeksym}{o}}
\newcommand{\uppi}{\allmodesymb{\greeksym}{p}}
\newcommand{\uptheta}{\allmodesymb{\greeksym}{q}}
\newcommand{\uprho}{\allmodesymb{\greeksym}{r}}
\newcommand{\upvarrho}{\allmodesymb{\greeksym}{r}}
\newcommand{\upsigma}{\allmodesymb{\greeksym}{s}}
\newcommand{\upvarsigma}{\allmodesymb{\greeksym}{s}}
\newcommand{\uptau}{\allmodesymb{\greeksym}{t}}

\newcommand{\upupsilon}{\allmodesymb{\greeksym}{u}}
\newcommand{\upvarpi}{\allmodesymb{\greeksym}{v}}
\newcommand{\upomega}{\allmodesymb{\greeksym}{w}}
\newcommand{\upxi}{\allmodesymb{\greeksym}{x}}
\newcommand{\uppsi}{\allmodesymb{\greeksym}{y}}
\newcommand{\upzeta}{\allmodesymb{\greeksym}{z}}

\newcommand{\upvartheta}{\allmodesymb{\greeksym}{J}}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\endinput
